home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qblib1.EXE / LIBRARY.BI next >
Encoding:
Text File  |  1996-07-18  |  2.3 KB  |  72 lines
  1. '
  2. ' This metafile is created for LIBRARY.QLB/LIB, the perfect library for QB7.1
  3. '
  4. '                                                       Deyvi Levitas 1/6/96
  5. '
  6. TYPE RegType
  7.      ax    AS INTEGER
  8.      bx    AS INTEGER
  9.      cx    AS INTEGER
  10.      dx    AS INTEGER
  11.      bp    AS INTEGER
  12.      si    AS INTEGER
  13.      di    AS INTEGER
  14.      flags AS INTEGER
  15. END TYPE
  16. TYPE RegTypeX
  17.      ax    AS INTEGER
  18.      bx    AS INTEGER
  19.      cx    AS INTEGER
  20.      dx    AS INTEGER
  21.      bp    AS INTEGER
  22.      si    AS INTEGER
  23.      di    AS INTEGER
  24.      flags AS INTEGER
  25.      ds    AS INTEGER
  26.      es    AS INTEGER
  27. END TYPE
  28. DECLARE SUB Interrupt (intnum AS INTEGER, inreg AS RegType, outreg AS RegType)
  29. DECLARE SUB InterruptX (intnum AS INTEGER, inreg AS RegTypeX, outreg AS RegTypeX)
  30. DECLARE SUB Absolute (address AS INTEGER)
  31. DECLARE SUB Int86Old (intnum AS INTEGER, inarray() AS INTEGER, outarray() AS INTEGER)
  32. DECLARE SUB Int86XOld (intnum AS INTEGER, inarray() AS INTEGER, outarray() AS INTEGER)
  33.  
  34.  
  35. DECLARE SUB Ansicheck (yuklu)
  36. DECLARE SUB Biosdate (bios$)
  37. DECLARE SUB Capson ()
  38. DECLARE SUB Capsoff ()
  39. DECLARE SUB Cleankeybbuffer ()
  40. DECLARE SUB Copy (source$, target$)
  41. DECLARE SUB Copypage (pagenumber)
  42. DECLARE SUB Currentdir (drive$, cdir$)
  43. DECLARE SUB Day.Month (Day$, month$)
  44. DECLARE SUB dosver (verhi, verlo, revision$, area$)
  45. DECLARE SUB Drivecheck (drive$, hazir!)
  46. DECLARE SUB Errorref (errorno!, return$)
  47. DECLARE SUB Fancycls (style!)
  48. DECLARE SUB Fileexist (File$, exist!)
  49. DECLARE SUB Filesize (File$, size!)
  50. DECLARE SUB Freespace (drive$, free$)
  51. DECLARE SUB Getkey (key$)
  52. DECLARE SUB Getvol (drive$, vol$)
  53. DECLARE SUB Kutu (x, y, xx, yy, o, f)
  54. DECLARE SUB Mesaj (title$, msg$)
  55. DECLARE SUB Mouse (msatir, msutun, mtus)
  56. DECLARE SUB Mousegoster ()
  57. DECLARE SUB Mousekontrol (yuklu)
  58. DECLARE SUB Mousepen (dikeysatir, dikeysutun, yataysatir, yataysutun)
  59. DECLARE SUB Mousesakla ()
  60. DECLARE SUB Percentbox (renkcerceve, renkkutu, renkpercent, percent, title$)
  61. DECLARE SUB Printercheck (value!)
  62. DECLARE SUB QInput (satir!, sutun!, yazirenk1, barrenk!, uzunluk!, degisken$)
  63. DECLARE SUB Reboot ()
  64. DECLARE SUB RestorePage (pagenumber)
  65. DECLARE SUB Screenstyle (style!)
  66. DECLARE SUB SendLinefeed ()
  67. DECLARE SUB SendToCom (send$, comnumber)
  68. DECLARE SUB Soundeffect (soundnumber!)
  69.  
  70. DIM SHARED inreg AS RegType, outreg AS RegType
  71.  
  72.